REPORT 2рЕМО 5СВРТ5 ЕХАМРІ ЕД. 
PARAMETERS : Р ЕМРІР ТҮРЕ ЕМРІР. 


TYPES : BEGIN ОҒ ѓу Т001, 
ВУКА$ ТҮРЕ БикВ5, 
ВОТХТ ТҮРЕ ВЏТХТ, 
01401 ТУРЕ ort01, 
Іапа1 TYPE land1, 
END ОҒ \у Т001. 


дака: ма Т001 ТҮРЕ ғу Т001, 
WA ТУРЕ 2ЕМР. 
INCLUDE ZDEMO SCRIPTS_ROUTINES. 
START-OF-SELECTION. 
select SINGLE * INTO WA FROM ZEMP WHERE EMPID = P_EMPID. 


select SINGLE BUKRS BUTXT ОВТО1 LAND1 INTO ма ТОО1 FROM 
Т001 WHERE BUKRS = WA-BUKRS. 


PERFORM ОРЕМ ЕОВМ USING 'ZCUSTOMER_FORM4'. 
PERFORM WRITE_FORM USING 'PRINT_CLOGO' 'CLOGO'. 
PERFORM WRITE_FORM USING 'PRINT_MAIN' "МАІМ". 
PERFORM WRITE_FORM USING 'PRINT_SIGN' "ОСЬ", 


PERFORM CLOSE_FORM. 


FORM ОРЕМ ЕОВМ USING ЕР ЕОВМ ТҮРЕ С. 


CALL FUNCTION "ОРЕМ ЕОВМ" 
EXPORTING 


FORM 


FP_FORM. 
ENDFORM. 


FORM WRITE_FORM USING FP_ELEMENT TYPE C FP_WINDOW TYPE 
С. 


CALL FUNCTION МУВТЕ ЕОВМ" 


EXPORTING 

ELEMENT = ЕР ЕГЕМЕМТ 

WINDOW = FP_WINDOW . 
ENDFORM. 


FORM CLOSE_FORM. 


CALL FUNCTION 'CLOSE_FORM' 
ENDFORM. 


REPORT 2рЕМО 59СВРТ5 ЕХАМРЕБ5. 
DATA У ЕГО ТҮРЕ ЕМРІР. 
5ЕГЕСТ-ОРТІОМ5 5 ЕП РОК У ЕР OBLIGATORY . 


TYPES : BEGIN ОҒ ғу Т001, 
BUKRS ТҮРЕ БикВ5, 
ВОТХТ ТҮРЕ ВЏТХТ, 
01401 ТҮРЕ ort01, 
Іапа1 ТУРЕ Іапа1, 
END ОҒ іу Т001. 


data: ма Т001 ТУРЕ {у 7001, 
WA ТҮРЕ 2ЕМР, 
ТАВ ТҮРЕ TABLE ОҒ ?ЕМР. 
INCLUDE 20ЕМО 5СВРТ5 ВОЏПМЕ5. 
ОТАКТ-ОҒ-5ЕГ ЕСТІОМ. 
select * INTO TABLE ТАВ FROM ?ЕМР WHERE ЕМРГ ІМ 5 ЕГ. 


PERFORM ОРЕМ ЕОВМ USING "7СЏОТОМЕВ ЕОВМА“. 


LOOP АТ ITAB INTO МА. 


select SINGLE BUKRS BUTXT ОВТО1 LAND1 INTO wa_T001 FROM 
Т001 WHERE BUKRS = WA-BUKRS. 


CALL FUNCTION '5ТАКТ_РОВМ' 
EXPORTING 
FORM = 'ZCUSTOMER_FORM4' 


PERFORM WRITE_FORM USING 'PRINT_CLOGO' 'CLOGO'. 
PERFORM WRITE FORM USING 'PRINT_ADDRESS' 'ADDRESS'. 
PERFORM WRITE_FORM USING 'PRINT_MAIN' "МАІМ". 
PERFORM WRITE_FORM USING 'PRINT_SIGN' "5 ОМ“. 


САП FUNCTION 'ЕМО_РОВМ'. 
ЕМО ООР. 

PERFORM СІОЅЕ ЕОВМ. 

E 


шае 
Text Edit Goto Format Insert System Нер одр -- SS 
Cae сив anna ЕЯ ом : 


Window МАІМ 


ВОХ FRAME 20 ТЫ 
Date о? Relieving &DATE& 


арома, 


ж» »| ж жр 


Тһе Employee with ID <с1>&ша-емРїй&</> and Матей 
<c1>&wa-nameg</> has been worked us since <с1>%ша-0018</> under the 
<с1>Фша-дерагіпепі%</> department. 

His performace was very well... 


Thank You 
vikas Shrivastava 
С.Е.0. of comapny 
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ЕСТ (1) 800 | visuinfoenp4 | INS 2 


[= Бае 
Tet Edit Goto Format Insert System Help SAP 
а 21 © № 


ија 


BITMAP "516М" OBJECT GRAPHICS ID BMAP ТҮРЕ ВСО. 
Е 
[©] 


reene raees ИЗО PORNS >-----=-=----- | СӘ ооа 


2 Место Еј меитоетрај ој | 
Start t ѕарттс - [Console Root}... BAP Editor: Change Re... | F) Documenti - Mic ги сој ш. 


[= Бае 
Tet Edit Goto Format Insert System Help SAP 
а 21 © № 


ија 


BITMAP "1060" OBJECT GRAPHICS ID BMAP ТҮРЕ BCOL 
Е 
[©] 


reene raees ДИЕТА PORNS >-------=----- ооа 


2274900 Р | иеитоетрај кој | 
Start t ѕарттс - [Console Root}... BAP Editor: Change Re... | [] Documenti - Mic ги сој ш. 


Ге Баа 
Tet Edit бою Format Inset System Help SAP. 
ЧА Аа 2 O № 


ВОХ FRAME 20 TW 

CCODE: &WA_TOO1-BUKRS4 
CCODENAME: &WA_TO01-BUTXT& 
CITY: АЦА T001 -ОВТ01& 
CNTRY: &WA_TOO1-LAND14 


reene raees ZOUSTONER PORNA ЕЕ Lines В еа 
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